home *** CD-ROM | disk | FTP | other *** search
/ PC Online 2000 October / Pc Online Ekim 2000.iso / prog / full / hmpro / HMPTools / VRCreate / data.z / Rotatable - Spin.beh < prev    next >
Encoding:
Text File  |  1996-07-01  |  489 b   |  24 lines
  1. #VRML V2.0 utf8 - PLATINUM technology, inc. 1997
  2. #ADD_PLANE_SENSOR
  3.  
  4.  
  5.  
  6. #animations
  7. DEF $OBJECT_spinnable Script {
  8.     eventIn     SFVec3f        translationIn    
  9.     eventOut    SFRotation    spin
  10.     field        SFRotation    newRotation    0 1 0 0
  11.     url "javascript:
  12.         function  translationIn(value)
  13.         {
  14.          newRotation[3]=value[0]/2;
  15.          spin=newRotation;
  16.         }
  17.     "
  18. }
  19. #route map
  20.  
  21. ROUTE $OBJECTPS.translation_changed  TO  $OBJECT_spinnable.translationIn
  22. ROUTE $OBJECT_spinnable.spin TO $OBJECT.set_rotation
  23.  
  24.